home *** CD-ROM | disk | FTP | other *** search
/ The Arsenal Files 8 / The Arsenal Files Collection #8 (Arsenal Computer) (1996).ISO / wildcat / stealth.zip / STEAL411.WCX (.txt) < prev    next >
Wildcat! WCX  |  1996-09-22  |  2KB  |  125 lines
  1. '! Decompiled with wccNosy version 4.20f (freeware)
  2. '! Input File: in.wcx  1560 bytes  11/15/122  01:49:30am
  3. '! Code Segment Size  :1015 bytes
  4. '! Data Segment Size  :5753 bytes
  5. '! String Segment Size:545 bytes
  6. '! Compiled with WCC version 4.11
  7.  
  8.       Type Type26
  9.         Filler0(1 To 6) As Byte
  10.         s6 As String*70
  11.         Filler76(1 To 14) As Byte
  12.         s90 As String*70
  13.         Filler160(1 To 14) As Byte
  14.         s174 As String*70
  15.         Filler244(1 To 20) As Byte
  16.         w264 As Word
  17.       End Type
  18.  
  19.       Dim s4463 As String
  20.       Dim s4467 As String
  21.       Dim s4471 As String
  22.       Dim s4475 As String
  23.       Dim s4479 As String
  24.       Dim s4508 As String
  25.       Dim ur4512 As UserRecord
  26.       Dim s5403 As String
  27.       Dim s5407 As String
  28.       Dim s5411 As String
  29.       Dim s5415 As String*12
  30.       Dim dt5427 As DateTime
  31.       Dim mh5433 As MessageHeader
  32.  
  33.       CarrierCheck(-1)
  34.       MorePrompt(0)
  35.       Open ProgPath + "STEALTH.CFG" For Input As 1
  36.       Input #1, s4463
  37.       Input #1, s4467
  38.       Input #1, s4471
  39.       Input #1, s4475
  40.       Input #1, s4479
  41.       Input #1, s4508
  42.       Close 1
  43.       GetUser(ur4512, User.SecLevel)
  44.       If (UCase(User.SecLevel) = UCase(s4463)) <> 0 Then
  45.       Else
  46.   178   If (UCase(User.SecLevel) = UCase(s4467)) <> 0 Then
  47.         Else
  48.   215     If (UCase(User.SecLevel) = UCase(s4471)) <> 0 Then
  49.           Else
  50.   252       If (UCase(User.SecLevel) = UCase(s4475)) <> 0 Then
  51.             Else
  52.   289         If (UCase(User.SecLevel) = UCase(s4479)) <> 0 Then
  53.               Else
  54.   326           End 
  55.               End If
  56.             End If
  57.           End If
  58.         End If
  59.       End If
  60.   327 Cls 
  61.       DisplayFile("STEALTH")
  62.       Locate 16, 29
  63.       Print "@0F@ What's it gonna be ?> ";
  64.       Do
  65.   355   s5407 = UCase(InKey(1213417543))
  66.         If (InStr("QU", s5407) > 0 = 0) = 0 Then GoTo 400
  67.       Loop
  68.   400 Cls 
  69.       s5411 = UCase(s5407)
  70.       Print ""
  71.       If (s5411 = "Q") = -1 Then
  72.         End 
  73.       End If
  74.   446 If (s5411 = "U") = -1 Then
  75.         GoTo 474
  76.       End If
  77.       Do
  78.         Do
  79.   474     Cls 
  80.           DisplayFile("STEALTH1")
  81.           Locate 8, 18
  82.           s5415 = InputMask("@0F@File Name of your Upload: @0E@", "XXXXXXXXXXXX", "", 1213417543)
  83.           Locate 12, 25
  84.           If (Not InputYesNo("@0B@Is the File " + UCase(s5415) + " @0F@?@0E@", 1213417543)) = 0 Then GoTo 574
  85.         Loop
  86.   574   If (Len(s5415) < 1) = 0 Then GoTo 617
  87.         Print "@01@ A Filename is Required !"
  88.         Print ""
  89.       Loop
  90.       Do
  91.   617   Locate 16, 15
  92.         s5403 = InputMask("@0F@File Desc.: @0E@", "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX", "", 1213417543)
  93.         Locate 20, 26
  94.         If (Not InputYesNo("@0B@Is the Description ok @0F@?@0E@", 1213417543)) = 0 Then GoTo 685
  95.       Loop
  96.   685 Cls 
  97.       Print "@0F@Please begin your Upload Now...."
  98.       If Not ReceiveFile(s4508 + "\" + s5415, 1213417543) Then
  99.         Print
  100.         Print ""
  101.         Print "@0F@An ERROR has occured during your Upload!"
  102.       Else
  103.   758   Print
  104.         Print "@0F@Upload Successful!"
  105.         Delay 2
  106.       End If
  107.   777 GetUser(ur4512, "")
  108.       CurrentDateTime dt5427
  109.       mh5433.To = UCase(MakeWild.SysopName)
  110.       mh5433.From = User.Name
  111.       mh5433.Subject = UCase(s5415)
  112.       FlagSet mh5433.Flags, 3
  113.       AddMessage(mh5433, ProgPath + "Stealth.txt", "", 1213417543)
  114.       Cls 
  115.       Print ""
  116.       Locate 8, 12
  117.       Print "@0F@  The Sysop has been notified of your Upload by E-Mail"
  118.       Delay 3
  119.       Print ""
  120.       Locate 10, 26
  121.       Print "@09@ Now returning you to the BBS"
  122.       Delay 2
  123.       ActivityLog "Uploaded a file via STEALTH"
  124.       End 
  125.